
//---------------------------------------------
// FIGURE A3: Bill Sponsorship Overtime (Senate)
//---------------------------------------------

clear
use bills_by_issue_80_113.dta

twoway (line numbill cong if major == 3 & senate == 1, lcolor(black) lwidth(thick) graphregion(color(white)) ///
xlabel(80(5)110) xtitle("Congress") ytitle("Number of Bills Introduced", size(medium))) ///
(line numbill cong if major == 13 & senate == 1, lcolor(gs5) lpattern(dash) lwidth(thick) ///
legend(order(1 "Health" 2 "Social Welfare")) saving(graph1, replace))
twoway (line ratiobill cong if major == 3 & senate == 1, lcolor(black) lwidth(thick) graphregion(color(white)) ///
xlabel(80(5)110) xtitle("Congress") ytitle("Ratio among Bills Introduced", size(medium))) ///
(line ratiobill cong if major == 13 & senate == 1, lcolor(gs5) lpattern(dash) lwidth(thick) ///
legend(order(1 "Health" 2 "Social Welfare")) saving(graph2, replace))

gr combine graph1.gph graph2.gph, ysize(2.5) graphregion(color(white)) 


